home *** CD-ROM | disk | FTP | other *** search
/ Science Fair / Science Fair.iso / pc / working / work.dir / 00739.ls < prev    next >
Encoding:
Text File  |  1995-03-27  |  518 b   |  16 lines
  1. on exitFrame
  2.   global gOrder, gPosX, gPosY, gObjects, gLeft, gFlag
  3.   set gLeft to gObjects
  4.   set gFlag to [0, 0, 0, 0, 0, 0, 0, 0, 0, 0]
  5.   repeat with i = 1 to gObjects
  6.     puppetSprite(i + 10, 1)
  7.     puppetSprite(i + 20, 1)
  8.     puppetSprite(i + 30, 1)
  9.     setAt(gPosX, gOrder + i, the locH of sprite (i + 30))
  10.     setAt(gPosY, gOrder + i, the locV of sprite (i + 30))
  11.     set the visible of sprite (i + 10) to 0
  12.     set the visible of sprite (i + 20) to 0
  13.     set the visible of sprite (i + 30) to 0
  14.   end repeat
  15. end
  16.